home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue30 / vssdigi / VSSDIGI.ZIP / Examples / misc / uspect.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1997-12-19  |  1.3 KB  |  63 lines
  1. //******************************************************************************
  2. //                        VARIAN LED STUDIO v2.00
  3. //               (c) VARIAN SOFTWARE SERVICES NL 1996-1997
  4. //                          ALL RIGHTS RESERVED
  5. //******************************************************************************
  6.  
  7. unit uspect;
  8.  
  9. interface
  10.  
  11. uses
  12.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   StdCtrls, ExtCtrls, vrspect, vrbltr;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     VrBlotter1: TVrBlotter;
  18.     VrSpectrum1: TVrSpectrum;
  19.     Timer1: TTimer;
  20.     Button1: TButton;
  21.     Button2: TButton;
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure Button2Click(Sender: TObject);
  24.     procedure Timer1Timer(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38.  
  39. procedure TForm1.Button1Click(Sender: TObject);
  40. begin
  41.   Timer1.Enabled := true;
  42. end;
  43.  
  44. procedure TForm1.Button2Click(Sender: TObject);
  45. begin
  46.   Timer1.Enabled := false;
  47.   VrSpectrum1.Reset;
  48. end;
  49.  
  50. procedure TForm1.Timer1Timer(Sender: TObject);
  51. var
  52.   I, Value: Integer;
  53. begin
  54.   with VrSpectrum1 do
  55.     for I := 0 to Pred(Count) do
  56.     begin
  57.       Value := Random(MaxPos + 1);
  58.       Items[I].Position := Value;
  59.     end;
  60. end;
  61.  
  62. end.
  63.